﻿Public Class SigAsilKadroyaGecis : Inherits Process

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Start("Asıl ve sürekli kadroya geçiş", "Sigortalı bilgisini girin.")
				AddSigortali()
				StartBody()
				AddDate("Tarih", "Geçiş tarihi", "nl")
			Case EventType.ValidateForm
				Help = "Asıl ve sürekli kadroya geçiş tarihini girin."
				Rs = Sigortali.GirisCikis(Remote, Input("Sigortali"))
				Dim Row = (From r In Rs.Rows Where r("statu") = "01.11.001" And IsNull(r("ciktar"))).FirstOrDefault
				If Row Is Nothing Then
					Warning("Sigortalı kamu görevlisi olarak çalışmıyor.")
					Focus("Sigortali")
					Return
				End If
				Buttons.Show("Save.Reset")
				e.Result = True
			Case EventType.Save
				Sigortali.AsilVeSurekliKadroyaGecis.Kaydet(Local, Input("Sigortali"), Rs("isyerino"), Input("Tarih"), User.Kaykul)
				Info("Kayıt gerçekleşmiştir.")
				Reset()
		End Select
	End Sub

End Class
